﻿Public Class Bangbutton
    Inherits Windows.Forms.Button

    Sub New()
        MyBase.New()
        InitializeComponent()
        Me.FlatStyle = Windows.Forms.FlatStyle.Flat
        Me.FlatAppearance.MouseDownBackColor = Drawing.Color.FromArgb(46, 46, 46)
        Me.Font = New Drawing.Font("Segoe UI", 10)
        Me.ForeColor = Drawing.Color.FromArgb(78, 78, 78)
        Me.FlatAppearance.BorderSize = 0
    End Sub

    Private Sub Bangbutton_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
        Me.ForeColor = Drawing.Color.FromArgb(231, 231, 231)
    End Sub

    Private Sub Bangbutton_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
        Me.ForeColor = Drawing.Color.FromArgb(231, 231, 231)
    End Sub

    Private Sub Bangbutton_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
        Me.ForeColor = Drawing.Color.FromArgb(78, 78, 78)
    End Sub

    ''' <summary>
    ''' Show the about box of the control.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub ShowAbout()
        MsgBox("Programmed by: Muhammad Yasin" + vbCrLf + "Email: Muhammad-Yasin@outlook.com", MsgBoxStyle.Information, "About Smooth Label")
    End Sub
End Class
